home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / miscstat.arc / AVEGRATE.BAS next >
Encoding:
BASIC Source File  |  1986-04-25  |  1.1 KB  |  41 lines
  1. 1 'AVErage Growth RATE
  2. 2 KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10  PRINT "AVERAGE GROWTH RATE, FUTURE PROJECTIONS"
  4. 20  PRINT 
  5. 30  DIM S(20)
  6. 40  PRINT "NUMBER OF YEARS FIGURES ESTABLISHED";
  7. 50  INPUT N:IF N=0 THEN 320
  8. 52  IF N<2 THEN 50
  9. 60  FOR I = 1 TO N
  10. 70  IF I > 1 THEN 100
  11. 80  PRINT "FIGURE: YEAR"I;
  12. 90  GOTO 110
  13. 100  PRINT "        YEAR";I;
  14. 110  INPUT S(I)
  15. 120  NEXT I
  16. 130 T =  LOG (S(1))
  17. 140 V = 0
  18. 150  FOR I = 2 TO N
  19. 160 L =  LOG (S(I))
  20. 170 T = T + L
  21. 180 V = V + (I - 1) * L
  22. 190  NEXT I
  23. 200 A = 6 * (2 * V / (N - 1) - T) / (N) / (N + 1)
  24. 210 G =  EXP (A) - 1
  25. 220  PRINT "AVERAGE GROWTH RATE: " INT (G * 10000 + .5) / 100;"%"
  26. 230  PRINT 
  27. 240 S =  EXP (T / N - A * (N - 1) / 2)
  28. 250  PRINT "(ENTER 0 TO END PROGRAM)"
  29. 260  PRINT "PROJECTED SALES FOR YEAR ";
  30. 270  INPUT Y1
  31. 280  IF Y1 = 0 THEN 320
  32. 290 S1 = S * (1 + G) ^ (Y1 - 1)
  33. 300  PRINT "                         ="; INT (S1 * 100 + .5) / 100
  34. 310  GOTO 260
  35. 320 PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO CONTINUE";
  36. 330 LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  37. 340 K$=INKEY$:IF K$="" THEN 340
  38. 350 IF K$=" " THEN RUN
  39. 360 IF K$<>CHR$(27) THEN 340
  40. 10000 RUN"MENU
  41.